perm filename RDTEST[LSP,LSP] blob sn#335142 filedate 1978-02-13 generic text, type T, neo UTF8
00100	(PROG (SEXPR IBASE)
00200	      (SETQ IBASE (ADD1 7))
00300	 LOOP (SETQ SEXPR (PRINT (ERRSET (READ))))
00400	      (COND ((EQ SEXPR (QUOTE $EOF$)) (RETURN NIL)))
00500	      (COND ((MEMQ (CAAR SEXPR) (QUOTE (BEGINBLOCK ENDBLOCK))) (GO LOOP)))
00600	      (PRINT (EVAL (CAR SEXPR)))
00700	      (GO LOOP))
00800	
00900	(BEGINBLOCK COMPILER)
01000	
01100	(DECLARE (SPECIAL LASTOUT LOCVARS SPECVARS P1CNT P2CNT FUNNAME))
01200	
01300	(DE (FOO X) (CAR X))
01400	
01500	T
01600	
01700	(CONS T NIL)
01800